home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #2 / Ham Radio 2000 - Volume 2.iso / HAMV2 / MISC / HCAL-27 / DISCONE.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1997-01-28  |  4.7 KB  |  170 lines
  1. 10  'DISCONE - Discone Multiband Antenna - 03 NOV 96 rev.
  2. 20  IF EX$=""THEN EX$="EXIT"
  3. 30  CLS:KEY OFF
  4. 40  COLOR 7,0,1
  5. 50  F$="#####.###"
  6. 60  U$="#####.#"
  7. 70  V$="=####.##"
  8. 80  X$=STRING$(80,32)
  9. 90  PI=3.14159
  10. 100  '
  11. 110  '.....start
  12. 120  CLS
  13. 130  COLOR 15,2
  14. 140  PRINT " DISCONE MULTIBAND ANTENNA";TAB(57);"by George Murphy VE3ERP ";
  15. 150  COLOR 1,0:PRINT STRING$(80,223);
  16. 160  COLOR 7,0
  17. 170  Y=3:GOSUB 1050
  18. 180  GOSUB 1380
  19. 190  COLOR 0,7:LOCATE 25,22
  20. 200  PRINT " Press 1 to continue or 0 to EXIT....";:COLOR 7,0
  21. 210  Z$=INKEY$:IF Z$=""THEN 210
  22. 220  IF Z$="0"THEN CLS:RUN EX$
  23. 230  IF Z$="1"THEN 250
  24. 240  GOTO 210
  25. 250  CLS:Y=1:GOSUB 1050  'diagram
  26. 260  '
  27. 270  '.....input data
  28. 280  INPUT " ENTER: Lowest frequency of multi-band operation (MHz)...";FQ
  29. 290  WL=299.79/FQ   'wavelength in metres
  30. 300  LOCATE CSRLIN-1:PRINT X$;:LOCATE CSRLIN-1
  31. 310  '
  32. 320  PRINT " Lowest frequency of operation.....................Fq=";USING F$;FQ;
  33. 330  PRINT " MHz (";USING "###.##";WL;:PRINT " m.)";
  34. 340  CMAX=WL/4*10^3/25.4    'inches
  35. 350  A=CMAX
  36. 360  '
  37. 370  PRINT " Dia. of cone lower rim (DEFSTR free-space wavelength)...A=";
  38. 380  X=A:GOSUB 1000
  39. 390  LS=CMAX   'optimum length of sloped side @ 60<UNK! {00F8}>
  40. 400  CMINOPT=LS/22:Z=CMINOPT
  41. 410  COLOR 0,7
  42. 420  '
  43. 430  PRINT " Maximum diameter B at top of cone is";Z*2.54;"cm. (";Z;"in.)"
  44. 440  COLOR 7,0
  45. 450  LN=CSRLIN-1
  46. 460  '
  47. 470  PRINT " Do you want dimension B in (c)entimetres or (i)nches?   (c/i)"
  48. 480  Z$=INKEY$:IF Z$=""THEN 480
  49. 490  IF Z$="i"THEN Y$="in.":Y=1:GOTO 520
  50. 500  IF Z$="c"THEN Y$="cm.":Y=2.54:GOTO 520
  51. 510  GOTO 480
  52. 520  LOCATE CSRLIN-1:PRINT X$;:LOCATE CSRLIN-1
  53. 530  '
  54. 540  PRINT " ENTER: Diameter B at cone upper rim...............(";Y$;")";
  55. 550  INPUT Z:CMIN=Z/Y
  56. 560  IF CMIN>0 AND CMIN<=CMINOPT THEN 580
  57. 570  BEEP:GOTO 520
  58. 580  B=CMIN
  59. 590  VIEW PRINT LN TO 24:CLS:VIEW PRINT:LOCATE LN
  60. 600  '
  61. 610  PRINT " Dia. of cone upper rim.............................B=";
  62. 620  X=B:GOSUB 1000
  63. 630  C=LS
  64. 640  '
  65. 650  PRINT " Length of sloped skirt (DEFSTR free-space wavelength)...C=";
  66. 660  X=C:GOSUB 1000
  67. 670  IF B=0 THEN 720
  68. 680  R=C/B
  69. 690  '
  70. 700  PRINT " Ratio of cone skirt length to upper diameter.....C/B=";
  71. 710  PRINT USING "#####.#";R;:PRINT ":1"
  72. 720  D=SQR(C^2-((A-B)/2)^2)
  73. 730  '
  74. 740  PRINT " Height of cone.....................................D=";
  75. 750  X=D:GOSUB 1000
  76. 760  ER=ATN(((A-B)/2)/D) 'angle in radians
  77. 770  E=ER*180/PI         'angle in degrees
  78. 780  '
  79. 790  PRINT " Flare angle (this angle is not critical)...........E=";
  80. 800  PRINT USING U$;E;:PRINT "<UNK! {00F8}>"
  81. 810  F=0.3*B
  82. 820  '
  83. 830  PRINT " Disc-to-cone spacing...............................F=";
  84. 840  X=F:GOSUB 1000
  85. 850  G=0.7*A
  86. 860  '
  87. 870  PRINT " Disc diameter......................................G=";
  88. 880  X=G:GOSUB 1000
  89. 890  H=D+F
  90. 900  '
  91. 910  PRINT " Overall height.....................................H=";
  92. 920  X=H:GOSUB 1000
  93. 930  FC=299.79/0.3048*12*0.96/4/C       '.96=velocity factor of apron material
  94. 940  '
  95. 950  PRINT " Cutoff frequency (approximate)....................Fc=";USING F$;FC;
  96. 960  PRINT " MHz";
  97. 970  '
  98. 980  GOSUB 1570:GOTO 110
  99. 990  '
  100. 1000  '.....print dimension
  101. 1010  IF X<100 THEN J=X:J$=" in."ELSE J=X/12:J$=" ft."
  102. 1020  PRINT USING U$;X*2.54;:PRINT " cm.";USING V$;J;:PRINT J$
  103. 1030  RETURN
  104. 1040  '
  105. 1050  '.....diagram
  106. 1060  COLOR 7,0
  107. 1070  LOCATE Y:X=34
  108. 1080  LOCATE ,X:PRINT "DISCONE MULTIBAND ANTENNA"
  109. 1090  LOCATE ,X:PRINT STRING$(25,205)
  110. 1100  LOCATE ,X:PRINT "Locate disc at distance `F' above top of cone,"
  111. 1110  LOCATE ,X:PRINT "using insulated spacer(s)."
  112. 1120  PRINT
  113. 1130  LOCATE ,X:PRINT "Feed with 50 - coaxial line. Connect centre"
  114. 1140  LOCATE ,X:PRINT "conductor to disc and outer conductor to cone."
  115. 1150  PRINT
  116. 1160  LOCATE ,X:PRINT "If disc or cone is constructed of wire or tube"
  117. 1170  LOCATE ,X:PRINT "radials, connect radials to form continuous"
  118. 1180  LOCATE ,X:PRINT "wire or tube perimeters at locations indicated"
  119. 1190  LOCATE ,X:PRINT "by the symbol <<UNK! {FE3E}>."
  120. 1200  LOCATE Y:X=2
  121. 1210  COLOR 0,7
  122. 1220  LOCATE ,X:PRINT "                              "
  123. 1230  LOCATE ,X:PRINT "       CALLDEFSNGSOUNDSOUNDSOUND G SOUNDSOUNDSOUNDDEFDBLCALL  FCOLOR      "
  124. 1240  LOCATE ,X:PRINT " Disc=><UNK! {FEC4}>SOUNDSOUNDSOUNDSOUNDBSAVESOUNDSOUNDSOUNDSOUNDSOUND<UNK! {FE20}>DEFSNGSOUND<0xB4!>DEFSNGSOUNDSOUNDSOUNDCOLOR "
  125. 1250  LOCATE ,X:PRINT "           <UNK! {FEC4}>USINGSOUND<UNK! {FE20}>DEFSNGSOUNDSOUNDSOUNDSOUNDSOUND'DEFSNGSOUNDCOLOR CALL "
  126. 1260  LOCATE ,X:PRINT "          /CALL OPEN CALL\         CALL CALL "
  127. 1270  LOCATE ,X:PRINT "         / CALLDEFSNGBDEFDBLCALL \        CALL CALL "
  128. 1280  LOCATE ,X:PRINT " Cone=> /  CALL OPEN    C       D H "
  129. 1290  LOCATE ,X:PRINT "       /DEFSNGEDEFDBLCALL OPEN     \      CALL CALL "
  130. 1300  LOCATE ,X:PRINT "      /      OPEN      \     CALL CALL "
  131. 1310  LOCATE ,X:PRINT "     <UNK! {FE20}>      OPEN       <UNK! {FE20}>DEFSNGSOUNDSOUND'DEFSNG' "
  132. 1320  LOCATE ,X:PRINT "     CALLDEFSNGSOUNDSOUNDSOUNDSOUNDSOUND A SOUNDSOUNDSOUNDSOUNDSOUNDDEFDBLCALL        "
  133. 1330  LOCATE ,X:PRINT "             OPEN<= 50 - coax    "
  134. 1340  COLOR 7,0
  135. 1350  PRINT STRING$(80,205);
  136. 1360  RETURN
  137. 1370  '
  138. 1380  '.....preface
  139. 1390  TB=7
  140. 1400  PRINT TAB(TB);
  141. 1410  PRINT "Dimensions A and C are equal to a free-space quarter wavelength at"
  142. 1420  PRINT TAB(TB);
  143. 1430  PRINT "the lowest operating frequency. Due to the velocity factor of the"
  144. 1440  PRINT TAB(TB);
  145. 1450  PRINT "material used in a practical antenna, the actual cutoff frequency"
  146. 1460  PRINT TAB(TB);
  147. 1470  PRINT "will be slightly lower than the lowest operating frequency."
  148. 1480  PRINT
  149. 1490  PRINT TAB(TB);
  150. 1500  PRINT "This program is based on design data appearing in The ARRL ANTENNA"
  151. 1510  PRINT TAB(TB);
  152. 1520  PRINT "BOOK, 17th edition, on page 7-17, Fig.32, Fig.33 and the left-hand"
  153. 1530  PRINT TAB(TB);
  154. 1540  PRINT "column on page 7-18."
  155. 1550  RETURN
  156. 1560  '
  157. 1570  'HARDCOPY
  158. 1580  GOSUB 1690:LOCATE 25,2:COLOR 14,6
  159. 1590  PRINT " Press 1 to print screen, 2 to print screen & ";
  160. 1600  PRINT "advance paper, or 3 to continue.";:COLOR 7,0
  161. 1610  Z$=INKEY$:IF Z$="3"THEN GOSUB 1690:RETURN
  162. 1620  IF Z$="1"OR Z$="2"THEN GOSUB 1690:GOTO 1640
  163. 1630  GOTO 1610
  164. 1640  FOR QX=1 TO 24:FOR QY=1 TO 80
  165. 1650  LPRINT CHR$(SCREEN(QX,QY));
  166. 1660  NEXT QY:NEXT QX
  167. 1670  IF Z$="2"THEN LPRINT CHR$(12)
  168. 1680  GOTO 1580
  169. 1690  LOCATE 25,1:PRINT STRING$(80,32);:RETURN
  170.